# name : rpact.SampleSize GroupSeqential Survival full
# key : rpact.SampleSize.GroupSeqential.Survival
# contributor: Shuguang Sun
# --
${1:dsg1} <- getDesignGroupSequential(
kMax = ${2:2},
alpha = 0.025, sided = 1,
beta = ${4:0.1},
informationRates = c(${3:0.67}, 1),
typeOfDesign = \"${5:$$(yas-choose-value '("asOF" "asP" "OF" "P" "WT" "HP" "WToptimum" "asKD" "asHSD" "asUser"))}\",
typeBetaSpending = \"${6:$$(yas-choose-value '("bsOF" "bsP" "bsKD" "bsHSD" "bsUser"))}\")

getSampleSizeSurvival(
design = $1,
  thetaH0 = rpact:::C_THETA_H0_SURVIVAL_DEFAULT,
  lambda1 = ${7:log(2) / 10}, # Treatment
  lambda2 = ${8:log(2) / 7},  # Reference
  hazardRatio = NA_real_,
  followUpTime = ${9:28},
  accrualIntensity = ${10:8.3},
  accrualTime = 0,
  allocationRatioPlanned = ${11:1},
  dropoutRate1 = 0.01,
  dropoutRate2 = 0.05,
  dropoutTime = 12
)
